home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / MAJOR / Process / transpose-tonality < prev    next >
Encoding:
Text File  |  1998-10-23  |  920 b   |  26 lines  |  [TEXT/ScoM]
  1. transpose-tonality semitones tonality-zones 
  2.  
  3. Some cases the composer wants to build the tonality zones directly with the use of transpose-tonality which accepts many note-lists as input. This example uses an event where a minor chord changes to major chord, which is then transpose through all the keys keeping the results within a couple of octaves.
  4.  
  5. (setq event '((c 3 f 3 g# 3) (c 3 f 3 a 3)))
  6.  
  7. (setq chords 
  8.    (append
  9.       (transpose-tonality 0 event)   
  10.       (transpose-tonality 5 event)   
  11.       (transpose-tonality 10 event)  
  12.       (transpose-tonality 3 event)    
  13.       (transpose-tonality 8 event)    
  14.       (transpose-tonality 13 event)   
  15.       (transpose-tonality 6 event)       
  16.       (transpose-tonality 11 event)      
  17.       (transpose-tonality 16 event)     
  18.       (transpose-tonality 9 event)        
  19.       (transpose-tonality 14 event)        
  20.       (transpose-tonality 19 event)       
  21.    )
  22. )
  23.  
  24.  
  25.  
  26.